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This module contains the pli runtime routines for stream output 
buffer mapipulation. 


author: c. spitz 
modified: 
1-002 Chip Nylander 03-Aug-1982 


Signal Line-counter overflow and page-couter overflow instead of 
dying in the RTL with an integer overflow. 


1-003 Chip Nylander 07-Sep-1982 


Clear the top half of R2 at PLISSPUTSKIP_R2, since some callers 
do not: fix a couple of transcription errors. 


00 1 title pli$putbuffer 
09 ¢ -ident 7 -065/ : Edit CGN1005 
3; Edit WHM1004 
4 ; Edit CGN1003 
5 : Edit CGN1002 
000 5 3 
B88 8 FRRAA RARER EAA A AEA A AERA RAE AAA AAAAAAAAERAARAET HATER e eee 
3* © 
0000 Q ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 1 ;* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
464 § a ALL RIGHTS RESERVED. * 
s 7 
0000 4 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 5 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 8 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 7* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 8 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
5000 4 :* TRANSFERRED. * 
: y 
0000 1 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 ¢ ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i438 Z - CORPORATION. * 
Ps + 
000 5 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 6 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0008 is : 
°® 
it 4 | SUNSSORSRETEREON LL SbRdESOREERSENERREEREDeeenbEteneenereeeRsecsahenetineets 
1 e 
4 +t 
? facility: 
2 VAX/VMS PL1 runtime Library 
M abstract: 
9 
0 
4 
5 
6 
? 
8 
9 
0 
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1-004 Bill Matthews 29-September-1982 


PLISPUTBUFFER 
+005 
00 28 ; 
§ 9; 
60 ; 
8 61 ; 
0000 66 3 
4 65 ; 
000 64 ; 
0000 65 ; 
0000 66 ; 
44 67 ; 
000 68 
4 $2 3 
0000 0; 
0000 “1 ¢ 
0000 i 
0000 7 
0000 74 
0000 75 
0000 76 
0000 77 
0000 78 
0000 79 ; 
0000 80 ; 
0000 81; 
0000 Hf 
0000 8 
0000 84 
0000 85 
0000 86 
0000 87 
0000 88 
0000 89 
0000 90 
0000 91 
0000 3 
0000 9 
0000 94 
0000 95 
0000 96 
0000 97 
0000 98 
44 99 
000 100 
4 19) 
000 1 ; 
0000 10 
0000 104 
0000 132 
4 106 
44 107 
000 108 
000 109 
4 110 
2D 0C AC «(O7~Ctsé€E*O 4! 111 
52 E AC of AB 00 ie 
E AC § B1 OO0A 11 
2 13 OOOE 114 
OO 


Bete Se Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Ge 
+ 


-enabl 
pli$$putnlis_ré:: 
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ae 7 oe:g 716 CPLIRTL.SRCIJPLIPUTBUF .MAR; 1 ° 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-005 Chip Nylander 19-December-1983 
For PRINT files, implement PAGE by putting a formfeed in the 


PRN pestqprocessing field rather than sticking a “L in the 
data record. Non-PRINT files continue to work as always. 


external definitions 


$deffcb sdefine file control block 
Srabdef sdefine rms rab offsets 
$defstr sdefine stream block offsets 
$defplirtcons sdefine runtime constants 
S$devdef sdefine device bits in fab 
$fabdef sdefine fab offsets 

local data 
rtshare ;sharable 

+ 

pli$$putnlis_ré 


functional description: 


This routine puts elements into the buffer of a pl1 stream output 
file. It is called by the ig rH Pas routines to copy the ; 
contents of the stream block's field to the buffer. If the string 

in the field will not fit in the remainder of the Line, and the 

Line is not empty, a skip is performed. Whether the skip was performed 
or not, the string in field is then copied to the buffer. If the Line 
is filled, rms is called to perform a $put. 


inputs: 
ri1 - address of the stream block 
ap - address of the file control block ; 
str b_field(r11) = character string to output (in char var format) 
fcb_l_buf_pt - address of next available char in buf 
. ae eatin - address of the end of the buffer + 1 
outputs: 


side effects: 


lsb 


C Gotrvapring fcb_t we ertep? . 168 :if print file 
bicw3 #7,ftb_w_column(ap),r2 ;round column down to last tab stop 
cmpw +3 fcb_w_column (ap) salready at a tab stop? 
beql 10$ sif eql, yes 


( 


2. | 
1 


) 


j 
| 
i 
| 
| 
| 
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52. 08 A 1 115 addw #8,r2 ;round up to next tab boundar 
53 2 2EA ag a8 118 subw3  fcb_w.column(ap) ,r2,r3 iget nunber of blanks requires 
E AC é BO 1 11 movw re. cB_w_column(ap) ystore column 
A AC Bi 001 118 5$: cmpw r2,fcb_w_linesize(ap) ;past end of Line? 
0b 14 00 119 bgtr 8$ ;if gtr, yes do a skip 
“ea Fs #& € 2 2c 8 120 movc5 #9. (sp) #*x20,r3,afcb_l_buf pt(a zinsert blanks 
1C AC DO 121 movl r3,fcb_(_buf_pt (ap) supdate buffer pointer 
05 11 00ed 128 brb 10$ cont | 
yt Hy 88 F 123 8$: bsbw pli$$putskp1_r2 ido a skip 
56 18 AB C 0032 124 10$: movzwl str_b_field(r11),r6 get length of field ) CV 
51 1A AB 9E 0036 125 T+ # mova str-b-field+2(ri{),r1 get addr of start of source string FC 
52 56 01 (C1 QO3A 1 § 15$: addl #1,76,r2 get length to put (inc trailing blank) FC 
QOO3E 1 gh 1SSput congris FC 
54 2A AC 2E AC AZ OO3SE 128 208: subw fcb_w_column(ap), fcb_w_linesize(ap) ,r4 iget Length left in Line FC 
56 54 Bi 0044 129 cmpw r4,r6 zenough room in line? | FC 
22 14 0047 130 bgtr 40$ if gtr, yes FC 
OA 13 0049 131 beql 30$ sif eql, not enuf for blank | FC 
2—E AC 685 «(0048 136 tstw fcb_w_column(ap) sare we at column 0? FC 
05 13 OO4E 1 beql 30$ :if eql, yes, don't skip FC 
0098 86 30 Oo 134 bsbw pL iSSputskpt_re :do a skip ; FC 
E1 11 0053 135 brb 2s ;try again with full line FC 
56 54 A2 0055 136 308 subw r4,r6 ;get length left after Line is filled FC 
1c BC) «66610 54S 2BSC«0SBSCéd137 move3) r4,(r1),afcb_l_buf pt(ap) ;fill Cine FC 
1c AC 653) «60 «6005D = 138 mov r3,fcb_(_buf_pt (ap) supdate buffer position FC 
51 DD 0061 £139 ushl rl save position in field FC 
0088 30 0063 £140 sbw pli$$putskp1_r2 sput the Line ’ FC 
51 8EDO 0066 141 pe L ri irestore position in field FC 
CF 11 0069 142 r 15$ igo aga n FC 
2—E AC 52 AO 0068 143 40$ addw r2,fcb_w et et by ;update column | FC 
1c BC 52 20 61 56 $2 QOO6F 144 move r6,(r1¥,8*x20,r2, fcb_l_buf petape ;copy field to buf, add blank FCI 
1c AC} 3653)— 00 «20076145 mov l r3.fcb_(_buf_pt (ap) supdate buffer pointer FCI 
05 OO7A 146 rsb sreturn FC! 
007B 147 FC 
007B 148 -dsabl Lsb FCI 
007B 149 FC 
00O7B 150 ;++ | . so ies - : FC 
O38 13) ; pli$$putnedi - put the next edit field in a stream file oe 
0078 183 ; this routine copies the vcha format string in the field into the buffer FC 
007B 154 ; of a stream output file. if there is not enough room in the buffer, as | FC 
007B 155 ; much as will fit is copied, the buffer is written to the file and the FC 
gore 136 3; remainder of the field is copied to the buffer. ps 
0078 138 inputs: : GE 
007B 159; str_b_field(r11) - vcha string to output 
0078 160 ;outpits: 
007B 161 ; fcb_w_buf_pt(ap) is updated | 
0078 16¢ 3 fcb-wocolTap) is updated | 
007B 163; fcb_w_line(ap) may be updated 
007B 164 ;side effects: 
07B 165 ; r0-r6 are destroyed 
O78 166 i-- | | 
07B 167 pli$$putnedi_ré:: ; 
51 18 AB 9E QO7B 168 mova str_b_field(r11),r1 sget addr of field 
56.881 8 O7F 192 movw (r13+or ;get len of field ; 
52 2AAC 2—E AC A Hf 170 10$: subw3 fcb_w_column(ap),fcb_w_linesize(ap),r2 sget len left in buffer 
52 56 861 8 171 cmpw r6,re2 sfield len <= buf ler? | 
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14 B 17 bgtr_ 208 -if gtr, then no | 
1c BC. 61 5 28 O8p 158 aoves eye see) afcb_l_buf_pt(ap) :¢bpy field to buf | 
1C AC dO 92. 174 mov r3,fcb_(_buf_pt (apy jupdate buf pointer 
2—E AC 56 Ag 096 8175 addw r6,fcb_w_column(ap) jupdate column 
0 O9A 176 rsb return 
56 2g Ag 098 177 208: subw gene sget len left in field after copy 
~o 8. 3 2 443 178 moves fr (rl) ,afcb_l_buf_pt (ap) ; copy ee hg of field to buf 
51 DD A 179 pushl ri save pointer in field 
1c AC 53 be OAS 180 mov r3,fcb_l_buf_pt (ap) jupdate buffer pointer 
0042 Q QOA9 181 bsbw pli$$putskp1_r2 swrite buffer to file 
51 8EDO OQOAC 186 pe L ri restore pointer in field 
D1 so Boat \8 r 10$ 390 again 
0B1 184 
00B1 185 ;++ 
tet 136 ; pli$$put_rec - put a record to a stream file 
00B1 188 ; this routine determines the length of the record that is in the buffer, 
00B1 189 ; and issues a Sput. upon successful completion, the column is reset to 0, 
id 130 ; and the buffer is reset to the beginning of the buffer. 
0081 136 ; calling sequence: 
00B1 193; 9sb pli$$put_rec 
00B1 194 ; 
00B1 195 ; inputs: 
00B1 196 ; fcb_l_buf(ap) - address of start of buffer 
00B1 197 ; fcb_l_buf_pt(ap) - address of last char to output + 1 
00B1 198 ; fcb_b_rablap) - ra 
00B1 199 ; outputs: 
00B1 200 ; fcb_l_buf_pt(ap) - set to fcb_l_buf(ap) 
00B1 201 ; fcb_w_column(ap) - set to 0 
0081 sos ; side effects: 
00B1 203; r0 is destroyed 
00B1 204 ;-- 
0081 205° | 
00B1 206 pli$$put_rec:: : ? 
OA OC AC 17 €1 0081 207 Bbc #atr_vistring,fcb_ l_attr(ap),10$ ;if string 
50 00000000'8F DO 0086 208 mov | #pli$_endstring,r0 zset end string error 
017, 31 O00BD 209 brw fai sand fail | 
50 1C AC 14 AC C3 O00CO 210 108: subl3 fcb_l_buf(ap),fcb_l_buf_pt(ap),r0 ;get size of buf 
0084 cC 50 60 O00C6 211 movw r0,<ftb_b_rab+rab$w_rsz>(ap) ;set size in rab | 
00CB $i¢ $put fcb_b_rabTap) zput the record 
34 AC D4& OO0D5 21 clrl fcb_l_prn(ap) :clr prn area | 
0A 50 €8 00D8 14 blbs r0,¢ sif lbs, cont 
50 eataeag *' p° B00 15 movl #pli$_rmsr,r0 zset rms rab error 
0155 1 O0E 16 brw fail zand fail 
2—E AC B4 OOE 17 208: clrw fcb_w_column(ap) zset column to 0 : 
1c AC 14 AC DO OQOE8 18 mov | fcb_l_buf(ap),fcb_l_buf_pt(ap) ;reset buffer pointer 
05 OOED 19 rsb sreturn 
OOEE 20 
OOEE 21 5++ ; | 
OOEE § 3 pli$Sputski -°3 - process a ah ip opt ten or format for an output stream file 
BOEE ? ; pli$$putskpl_r2 - process one skip for an output stream file 
OOtE 5 ; this routine processes the skips for an oytput stream file. it differentiates 
OEE 6 ; between print files and non-print output files. for print files, the skips are | 
QOEE 27 ; accomplished b Setting the number to skip in the prefix byte of the fixed 
OOEE 28 ; control area of the printer format file. for non-print files, the skips are 
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33 9 ; represented by new records. if the number to skip is 0, the file must be a 
EE 0 ; print file, and a carriage return is put into the prefix byte. (this is used 
OEE 1; for overprint ing) for print files, skip will only take you to the end of the 
OEE § ; page if the number to skip is more than the number of Lines left on the page. 
OEE ; for the first skip processed, the contents of the buffer are printed before 
OOEE 4 ; the buffer is cleared. 
QOEE 2s 
QOEE 6 ; inputs: 
QOEE (3 r2 = number of ships to perform 
OOEE 8 ; rill = address of the stream block 
OOEE y 3 ap - address of the file control block 
BREE 40 ; outputs: 
OEE 41 ; fcb_w.column is set to 0 
OOEE tg 3 fcb_w_line is incremented 
44 ti ; fcb_w_page may be incremented (and the endpage condition raised) 
OOEE 348 3; side effects: 
QOEE 46 ; rO-r2 are destroyed 
OOEE 247 ;-- 
QOOE§E 248 
OOEE 249 pli$$putskp1_r2:: 
52. 01 D0O OOEE . mov #1,r2 ;set to skip 1 
OOF 1 51 pli$$putskip_r2:: 
: 2.3. ory 52 movzwl r2,r2 sclear top half of r2 
Oc OC AC O7 €1 OOF& 253 bbc #atr_v_print,fcb_l_attr(ap),5$ ;if not print, cont 
1C AC 14 AC D1 OOF9 254 cmp fcb_U_Buf(ap).fcb_l_buf_pt(ap) :anything in buffer? 
05 12 OOFE 255 bneq :if neg, cont 
34 AC D5 0100 256 tstl fcb_l_prn(ap) ganything in prn? 
03 13 0103 57 beql 6$ sif eql, no, don't do the put 
FFA9 30 0105 58 5$: bsbw pli$$put_rec sprint the last record 
2E AC =B4 0108 59 6$: clrw fcb_w_column (ap) reset column 
52 D5 0108 260 tstl re iskip <= 0? 
OF 14 Q10D 261 botr 20$ sif gtr. then no 
07 OC AC O07 €E1 O10F $o¢ bbc #atr_v_print,fcb_l_attr(ap),10$ ;if not print, cont 
34 AC O008D BF 3C 0114 26 movzwl #pli$c_cr,fcb_l_prn(ap) ;set cr in prn 
05 O11A 264 rsb zreturn 
52. 01 00 0118 265 10$: mov #i,r2 sdefault to skip 1. 
5D OC AC_ 07 4 Bais 266 208: bbc #atr_v_print, fcb_l_attr(ap),30$ ;if not print, cont 
51 30 AC C O12 267 movzwl fcb_w_Tine(ap),rT sget current Line number 
51 52 CO 0127 268 addl rer igenerate new Line number 
OOOO7FFF 8F 51° O01 itn 269 cmpl r1,#32767 ;about to overflow? 
OA 15 0131 70 bleq 21s ino = branch 
50 00000000'8F 9 0133 71 mov | #pli$_Linovrflo,r0 :signal Line overflow 
FD 1 4 A 4 brw fail 3 
2c AC) «6551—Ss«éwBSCéd 39D 75 21$: cmpw ri,fcb_w_pagesize(ap) sover a page? 
07 15 0141 37 bleq 226 ~ if leq, then no 
2c AC }8=630 AC Bl (0143 75 cmpw fcb_w_line(ap),fcb_w_pagesize(ap) ;already past pagesize? 
09 15 0148 276 bleq 25$ sif leq, then no | 
34 AC 25 9A O14A 77 228: movzbl rg. fcb_lprn(ap) sset number of skips in prn 
30 AC 5 AO 014 78 addw r2,fcb_w_line(ap) supdate Line number 
05 bie 79 rsb sreturn E 
50 2C AC 30 AC A3 015 80 25$: subw3 = fcb_w_line(ap), fcb_w_pagesize(ap),r0 ;get number of Lines left 
50 B86 8122 es} incw rd on page + 1 ‘ 
34 AC 50 9A 0158 ¢ movzbl FP «fcb.l penta) zset number off skips in prn 
30 ac 20 AO HF 8 addw r0,fcb_w_line(ap) supdate Line number 
C DD 0163 84 pushl a zspush fcb addr 
00 dD 0165 85 pushl @# zset no secondary error code 


F 11 


PLISPUTBUFFER y* SEP AX/VMS Macro v04-00 Page 
005 Breer tbe 99:85:16 PORIATy eae seL CUTOUF.mar;1 29 
x ae * aa F DD 0167 § ushl eels. endpage set Rees cond 
CA 190 ick ogre ane m regen. feb_l attr (ap) iclr recursion flag 
00000006 cr F 171 8 calls ,g"pli$io_error ;signal the condition 
Cac O 78 8 A ty #atr_m pian feb_l -attr(ap) iset recursion flag 
rs return 
FF31 0 017D 91 gps: bsbw oh iss ut_rec 3do a skip 
FA 52 F5 Q1 9 35 OS: sobgtr r2,28 :go again’ as required 
05 Q1 9 rsb zreturn 
0184 94 
0184 95 5+ 
0184 38 spli$Sputline_ré 
813% oe 3 this routiné process the Line option or format for output stream files 
0184 99 inputs: 
0184 00 ; rl = Line number 
0184 01 ; rii = addr of streen block 
0184 o¢ 3 ap - addr of fcb 
0184 30 ;outputs: 
0184 Soe 3. ; non 
0184 05 ;- 
0184 $09 plissput ine, ré6:: 
51 30 AC Bi 0184 07 fcb_w_line(ap),r1 salready at the right Line? 
08 19 0188 $08 blss 10$ sif lss, then no 
14 14 Q1BA 09 bgtr 20$ sif gtr. then no 
2—E AC «BS 018C 310 tstw fcb_w_column(ap) gat col. 0? 
OF 12 O18F 311 bneq 20 :if neq, then no 
05 0191 312 rsb , jat right place, return Ccase 2.1] 
B138 313 108: ireq bing > cur line | 
2c AC «651 «Bi 019 314 cmpw fcb_w_pagesize(ap) iline requested <= pagesize? 
08 14 0196 315 bgtr 50 if gtr, then no 
52 51 30 AC A3 0198 316 subw3 = fcb_w zl inetep) ri,r2 iget number of Lines to skip Ccase 2.2] 
FF51 31 019D 317 brw pli$$putskip_ re go to the right Line 
Q1A0 318 20$: zreq_line = cur Line but col * "er cur line > req Line 
52 2C AC 30 AC A3 Q1A0 313 subw3 fcb_w_line(ap),fcb_w _pagesize(ap), r2 :get mumber of Lines left 
05 19 O1A6 20 blss 308" sif lss, then we're already over a page 
52 B6 O1A8 321 incw r2 sget Lines left on page + | (case 2.3 
FF44 31 Q1AA 356 brw pli$$putskip_r2 skip them 
01AD $5 30$: sbrw pli$S$putpage_ré 
01AD 24 
O1AD $ 
O1AD 6 pL ISeputpege. r6:: 
7FFF 8F 32 AC BT QTAD 27 pw fcb_w_page(ap),#32767 ;about to overflow page counter 
OA 19 0183 28 blss 10$~ 3no 
50 00000000 8F Bo StH $3 mov | #pli$_pagovrflo,r0 zyes 
oor? 1 01BC 0 brw fail 
5 DD O1BF 1 10$: ushl 5 zsave r5 in case bit src pending 
07 OC AC 07 + 01C1 ¢ bc #atr_v_print,fcb_l_attr(ap),20$ ;branch if not print file 
35 AC 8C 8F 0 O1C6 movb #140717 fcb_l_prnTap) ;put tormfeed in field 
0 11 O1CB 34 brb 30$ srejoin common code 
56 01 DO O1CD 5 20$: mov | A :set size to 1 
52. 56 ~=0 109 § mov | r6 set total size 
51 1A AB 43 1D movab <str_b_field+2>(r11),r1 :set addr of field 
1 oc 9 Hh Hs movb #*x0c,Tr1) put formfeed in field 
FE61 Hi 1DA 9 bsbw pLissput_ contrl sput control char in buf 
FED1 1DD 40 30$: bsbw pits $put_rec output record 
34 AC. 01 DO OQ1E0 4) mov 1,fcb_l=prn(ap) zset prn to one for first skip 
32 AC B46 O1E4 42 incw fcb_ w_page(ap) update page 
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30 AC 91 Be O1E7 43 movw #1,fcb_w_line(ap) sreset Lin 
5 BED 1€B 44 popl r5 restore r 
05 OEE 45 rs jreturn 
1EF 6 
1EF 4 2p} Sut. end_ré 
1EF #8 : inp 
1EF 4 : er - address of stream block 
O1EF 50 ; ap - address of file control block 
O1EF 51 ; outputs: 
O1EF 26 ; none 
O1EF 5 : side effects: 
pice 2¢ ; rO0-r6 are destroyed 
O1EF 56 pli$put_end_ré6:: 
OC AC O08 C8 OIEF 57 bist  #atr _m_recur, too. l rt tr(ap) ;set recursion flag 
21 0C AC 17 EO O1F3 58 bbs #atr_ 3 ~string. fe Patt’ 9p) 22 308 zif put string, cont 
OF OOFE6 CC 02 €1 O1F8 59 bbc #devSv_trm,<fcb b- fab+fab$l_dev>< ap). :if not term, cont 
OA 0C AC O07 €1 OF 60 bbc #atr_v_print, fcb_l_attr(ap),10$ ;if not print, cont 
6g8 61 assume <fcb_w_column+2> eq fcb_w_line 
2E AC DD 020 °¢ ushl = fcb_w_Column(ap) ;Save Line and column 
FEAS 30 0206 36 sbw pliSsput rec finish this Line 
2E AC BENO 0209 364 popl fcb_w_column(ap) trestore them 
50 Q00000000'8F D0 O020D 365 10S: mov l #ss$_Continue,r0 sset continue (needed if called from 
0214 366 ; sdefault handler) 
Oc AC 08 CA 0214 67 bicl #atr_m_recur,fcb_l -attr(ap) peut recursion flag 
04 0218 68 ret 
OE OC AC 18 €1 0219 69 20$: bbc #atr_v were. ree l _attr(ap), °50S ;if vcha, 
50 14 AC 00 021 70 mov | fcb_T_Buf(ap),r0 ~ sget addr of buf 
" tae Ww 3 ez 371 subl3 r0,¥%cB_l_buf_pt(ap).r1 iget Length of string 
FE AO 51 8 best 378 seve ri,-2(r0y 4045 Length 
re 
50 18 AC 1C AC C3 O22C 74 308: subl3 fcb_l_buf_pt(ap),fcb \_buf en OS r0 ;get length left in string 
1c BC) 65500620) 6E)S=—00-'sekk:s«0232 2S 3575 moves #0,'sp),#*x20,r0.afcb_l_but_pt(ap) ;blank out end of string 
04 0239 378 ret sreturn 
023A 77 
023A 378 
023A 79 
08 AC 50 00 sted 80 fail: movl r6.fcb_\_orrertep set error in fcb 
5C DD O23E 81 pushl set fcb addr 
50 DD 0240 386 pushl set error code 
00000000'8F DD 0 $5 38 pushl es error sset error condition 
00000000'GF 903 FB 024 tee calls #3,g*pli$io_error signal the condition 
Ose +H ret zreturn 
-en 
$536 389 d 
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PLISPUTBUFFER 


Symbol table 


PLISPUTBUFFER 
Psect synopsis 


The working set Limit was 1050 pages. 


387 source Lines were read in Pass 1, producing 11 object records in Pass 
19 pages of virtual memory were used to define 17 macros. 


$eeeeceecweccosooecoecocece=}+ 


Macro library name 
"$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 4 
“$255$DUA28:(SYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 14 


616 GETS were required to define 14 macros. 


There were no errors, warnings or information messages. 


PSECT name Allocation PSECT No. Attributes 
, @ « 00000000 “¢ 0.) 00 ¢ 0. ) NOPIC  USR 
SABSS$ 00000C08 ( 3080.) 01 ¢ -) NOPIC USR 
_PLISCODE 00000250 ¢ 592.) 02 ¢ 2° ) PIC  USR 
jn Emnae 
! Pertoraence indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 15 00 +02 00-08 00:00:00.31 
pomnene processing 77 00:00:00.5 BF DHS “be 
s 1 186 00:00:06.46 00:00:12.05 
Syabol table sort 0 00:00:00.6 00:00:01.14 
Pass 75 00:00:01.4 00:00:03.03 
Symbol table output 9 00:00:00.0 00:00:00.07 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 364 00:00:09.23 00:00:18.72 


16-SEP- 
6-SEP- 


CON 
CON 
CON 


34970 bytes (69 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 543 non-local and 30 Local symbols. 


1986 19:99: i6 


AX/VMS & cro V04-00 Page 
PLIRTL RCIP LIPUTBUF .MAR; 1 


ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
REL LCL SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=TRACEBACK/L1IS=LIS$:PLIPUTBUF /OBJ=OBJ$:PLIPUTBUF MSRC$:PLIPUTBUF/UPDATE=(ENH$:PLIPUTBUF)+LIB$:PLIRTM 
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